#!/usr/local/bin/perl5 

$num=0;
while($num<4)
{
foreach (0..9)
{
	print;
}
$num++;
}
	print "\n";
	print "input string length:";
	$strlen=<STDIN>;
	chomp $strlen;
while(defined(<STDIN>))
{	
	chomp $_;
	print $_;
	printf "%${strlen}s\n",$_;
}
	
	